home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / Icons_40_Smokey Heads.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  2.4 KB  |  121 lines
  1. property sd, spriteNum, currFrame, pAnimating, sFrame, eFrame, skipframe, oldLoc, myCar, pStar, pCap, pMyInfo, pOnce, starFrame, eStarFrame
  2.  
  3. on beginSprite me
  4.   sd = sprite(spriteNum)
  5.   sd.loc = point(-200, 0)
  6.   sd.visible = 0
  7.   pAnimating = 0
  8.   skipframe = 1
  9.   currFrame = 1
  10.   sFrame = 81
  11.   eFrame = 91
  12.   pOnce = 1
  13.   starFrame = 1
  14.   eStarFrame = 8
  15.   pStar = 0
  16.   pCap = 4
  17. end
  18.  
  19. on DoStar me, carSize, SpotInCar, spr
  20.   global gSmokeInfo
  21.   myInfo = gSmokeInfo[carSize][SpotInCar]
  22.   pMyInfo = myInfo
  23.   sd.flipH = myInfo.fH
  24.   sd.flipV = 0
  25.   myCar = spr
  26.   oldLoc = sprite(spr).loc
  27.   sd.loc = sprite(spr).loc + myInfo.offset
  28.   sd.visible = 1
  29.   pAnimating = 1
  30.   pOnce = 1
  31.   pStar = 1
  32.   currFrame = starFrame
  33.   if currFrame > 0 then
  34.     sd.member = member(currFrame, "Icons")
  35.   end if
  36.   pCap = 4
  37. end
  38.  
  39. on smokeOnce me, carSize, SpotInCar, spr
  40.   global gSmokeInfo
  41.   myInfo = gSmokeInfo[carSize][SpotInCar]
  42.   pMyInfo = myInfo
  43.   sd.flipH = myInfo.fH
  44.   sd.flipV = myInfo.fV
  45.   myCar = spr
  46.   oldLoc = sprite(spr).loc
  47.   sd.loc = sprite(spr).loc + myInfo.offset
  48.   sd.visible = 1
  49.   pAnimating = 1
  50.   pOnce = 1
  51.   currFrame = sFrame
  52.   if currFrame > 0 then
  53.     sd.member = member(currFrame, "Icons")
  54.   end if
  55.   pStar = 0
  56.   pCap = 4
  57. end
  58.  
  59. on StartAnim me, carSize, SpotInCar, spr
  60.   global gSmokeInfo
  61.   myInfo = gSmokeInfo[carSize][SpotInCar]
  62.   pMyInfo = myInfo
  63.   sd.flipH = myInfo.fH
  64.   sd.flipV = myInfo.fV
  65.   myCar = spr
  66.   oldLoc = sprite(spr).loc
  67.   sd.loc = sprite(spr).loc + myInfo.offset
  68.   sd.visible = 1
  69.   pAnimating = 1
  70.   pOnce = 0
  71.   currFrame = sFrame
  72.   if currFrame > 0 then
  73.     sd.member = member(currFrame, "Icons")
  74.   end if
  75.   pStar = 0
  76.   pCap = 4
  77. end
  78.  
  79. on update me
  80.   if pAnimating then
  81.     if sprite(myCar).loc <> oldLoc then
  82.       oldLoc = sprite(myCar).loc
  83.       sd.loc = oldLoc + pMyInfo.offset
  84.     end if
  85.     if skipframe = pCap then
  86.       skipframe = 1
  87.       currFrame = currFrame + 1
  88.       if pStar = 0 then
  89.         if currFrame > eFrame then
  90.           currFrame = sFrame
  91.           if pOnce then
  92.             turnOff(me)
  93.           end if
  94.         end if
  95.       else
  96.         if currFrame > eStarFrame then
  97.           currFrame = sFrame
  98.           turnOff(me)
  99.         end if
  100.       end if
  101.       sd.member = member(currFrame, "Icons")
  102.     else
  103.       skipframe = skipframe + 1
  104.     end if
  105.   end if
  106. end
  107.  
  108. on StopSmoking me
  109.   turnOff(me)
  110. end
  111.  
  112. on turnOff me
  113.   sd.visible = 0
  114.   pAnimating = 0
  115.   skipframe = 1
  116.   currFrame = 1
  117.   sFrame = 81
  118.   eFrame = 101
  119.   pCap = 4
  120. end
  121.